Mac100% 1999 April/MAC100-1999-04.ISO.7z/MAC100-1999-04.ISO/ｵﾝﾗｲﾝｿﾌﾄ定点観測/Utility/CNIF_MacroMaker 1.4.sit/CNIF_MacroMaker 1.4/CNIF_MacroMaker/background_2577.xml

Extensible Markup Language | 1999-01-11 | 71KB | 1,039 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2577</id>
    <filler1>0</filler1>
    <bitmap>BMAP_6898.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>8</left>
            <top>4</top>
            <right>194</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>mainMenu</name>
        <script>on mouseDownmainMenuend mouseDown</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>200</left>
            <top>4</top>
            <right>445</right>
            <bottom>24</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenu</name>
        <script>on mouseDownsubMenu bg fld "subMenuList"end mouseDown</script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>330</top>
            <right>12</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUplock screenget the visible of bg fld "subMenuList"set the visible of bg fld "subMenuList" to not itif the short name of this cd is "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" thenset the visible of cd fld "ScheduleBgList" to not itset the visible of cd fld "ScheduleCdList" to not itend ifend mouseUp</script>
    </part>
    <part>
        <id>8</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>464</left>
            <top>39</top>
            <right>493</right>
            <bottom>53</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>totalMarkNumber</name>
        <script>on mouseUpglobal ListSelectExitput markCdList() into listget ListSelect ("3#",list,"ﾃ厭ﾃ…[ﾃ丑ﾃ雨ﾃ…[ﾃ栄ﾃ嘉､ﾃ厩ﾃ曳ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","100,40,410,280","ﾃ厭ﾃ…[ﾃ丑ﾃ｢ï｣ｿﾃｨﾃｺ","Cancel",return)if ListSelectExit is "Cancel" or it is empty then exit mouseUpput the number of lines of it into nrepeat with r = n down to 1set the marked of marked cd (line r of it) to falseend repeatput the number of marked cards into meend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>285</left>
            <top>317</top>
            <right>305</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8349</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevBgend mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>317</top>
            <right>366</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8350</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextBgend mouseUp</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>306</left>
            <top>317</top>
            <right>326</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23718</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevCdend mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>325</left>
            <top>317</top>
            <right>345</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23717</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextCdend mouseUp</script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>370</left>
            <top>317</top>
            <right>390</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13301</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoPrevMcend mouseUp</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>389</left>
            <top>317</top>
            <right>409</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13302</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoNextMcend mouseUp</script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>454</left>
            <top>317</top>
            <right>474</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6720</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGoTopCdend mouseUp</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>408</left>
            <top>131</top>
            <right>490</right>
            <bottom>156</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>addin_CNMﾃｧﾃ湘ｪﾂｨ</name>
        <script>on mouseDownif the commandKey is up then wait 20if not(the optionKey is down or the mouse is "up") thenput cd fld id 1 of cd "ﾃ厭ﾃ…[ﾃ丑ﾃ瓜ﾃ叡ﾃ曳" into setListput "," & the date & "," & nextDate (1) & "," & nextDate (2) into dif the hilite of cd btn id 12 of cd "ﾃ厭ﾃ…[ﾃ丑ﾃ瓜ﾃ叡ﾃ曳" then put "-" & return & "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" & d after setListif the hilite of cd btn id 11 of cd "ﾃ厭ﾃ…[ﾃ丑ﾃ瓜ﾃ叡ﾃ曳" then put "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" & d & return & "-" & return before setListif setList is empty then exit mouseDownget (the left of me) - 1 & "," & the bottom of meUxPop setList,"N",,itput item 1 of line 2 of it into mainput item 2 of line 2 of it into subif main is empty then exit to HyperCardput main into setNameif sub <> empty then put "," & sub after setNamemouseUp setNameexit to HyperCardend ifend mouseDownon mouseUp setNameglobal cNMnewMacro,cNMmacroReport,cNMmacroLabel,cNMvariableListglobal cNMDialogOFF,cNMcreateMode,ListSelectExit,cNMBBSnif setName <> empty and item 1 of setName <> "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" thenput the shiftKey is down into shsend "markSet setName,sh" to cd "ﾃ厭ﾃ…[ﾃ丑ﾃ瓜ﾃ叡ﾃ曳"exit mouseUpelse if the optionKey is down or item 1 of setName is "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" thenif item 2 of setName is empty thenask "ﾃ‡ﾂ｢ﾃ‡ﾂｬﾃ‡ﾃε厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃ‡竕暗厭ﾃ丑ﾃ嘉ｧﾃ‡ï｣ｿﾃｧﾃ湘ｪﾂｨﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ③" & return & "ﾃｬﾋ凖ｯtﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with the dateif it is empty or it is not a date then exit mouseUpput it into checkDateelseput item 2 of setName into checkDateend ifput the optionKey is down into opput the shiftKey is down into shsend "scheduleCheck checkDate,op,sh" to cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣"exit mouseUpend ifset the cursor to watchput empty into cNMmacroReportget "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①addin_CNMﾃｧﾃ湘ｪﾂｨﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"if cNMDialogOFF is "true" thenput cd fld id 3 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into dispositionif the hilite of bg btn "ﾃ｣Nﾃｬﾃ†ﾃｩﾃｻﾃｩﾂｩﾃｬﾃ†ﾃｧﾃ湘ｪﾂｨ" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ " thenget "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①addin_ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃｩﾂｩﾃｬﾃ†ﾃｧﾃ湘ｪﾂｨﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"end ifelseput empty into dispositionend ifput the date && the long time into dateTimeput "------------------------------------------------------------" & return &ﾂｬit & return & dateTime & return & return after cNMmacroReport-- ﾃｯﾅ禿ｪﾃｮﾃ嘉､ﾃ瓜ﾃ叡ﾃ曳repeat with r = 1 to the number of items of cNMvariableListget item r of cNMvariableListdo "global" && itdo "put empty into" && itend repeatput empty into cNMvariableListput empty into cNMBBSnif the number of marked cards = 0 thenbeepanswer "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨﾃ‡ﾃεｩwﾃｭﾃ凝‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"exit mouseUpend ifput "/#000#/" into cNMmacroLabelput empty into addinText-- ﾃ､ﾋ佚‡窶ｦﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ暗ｨﾃ催ｧﾃ｡ﾃ③put fileListInFldr(cNifPath(),"N:addin_") into fileListif fileList <> empty thenif disposition is "ﾃｧﾃ湘‡ﾃﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ③" then exit mouseUpif disposition is empty or disposition is "ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡ï｣ｿﾃｨoﾃ‡竏妥③" thenput shortNumber("1-" & the number of lines of fileList,false) into sbeepget "ﾃ…ﾃ‰ addin_CNMﾃｧﾃ湘ｪﾂｨ ﾃ…ﾃ‘" & return & "ﾃ､ﾋ佚‡窶ｦaddin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃｧ窶ｺﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀"get ListSelect ("*3",fileList,"s=" & s,it,"NoDoubleClick","80,50","ASLFont+,9","Add",return,3000)if it <> empty and (ListSelectExit is "Delete" or ListSelectExit is "Rename") thendelReNameAddin "addin_",(ListSelectExit is "Delete"),,itelse if ListSelectExit is "Cancel" thenput "Cancel" into cNMcreateModehide msgexit mouseUpend ifelseif disposition is "ﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃｧﾃ湘‡ﾃ暗③" or disposition is "ﾃ嘉､ﾃ瑛ﾃ…[ﾃ嘉„ﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃｧﾃ湘‡ﾃ暗③" thendelReNameAddin "addin_",(disposition is "ﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃｧﾃ湘‡ﾃ暗③")end ifend ifend ifput empty into cd fld "cNif-Macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put empty into cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "-- putReport empty,trueput 0 into bg fld "errorNumber" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "-- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨcreateMacro dateTimeput return & "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①addin_CNMﾃｧﾃ湘ｪﾂｨﾃｨIﾃｳﾏ\ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ" & return after cNMmacroReportput cd fld "macroReport" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " into prevReportput MtScanList(prevReport,"ﾃｧﾃ湘ｪﾂｨﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ") into pput the number of lines of p into nif n > 4 thendelete line 1 to (item 1 of line (n - 3) of p) - 2 of prevReportend ifputReport prevReport & cNMmacroReport & return & return,trueput empty into cNMvariableListput empty into cNMnewMacroget the number of lines of MtScanList(cNMmacroReport,"ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦")put it into bg fld "errorNumber" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "hide msgunlock screenif disposition is empty thenif "ﾃ烏ﾃ嘉｢ﾃ…[" is not in cNMmacroReport thenplay harpsichord g6sanswer "addin_CNMﾃｧﾃ湘ｪﾂｨﾃｨIﾃｳﾏ\ﾃ③ﾃ厭ﾃ…[ﾃ丑ﾃ‡ï｣ｿﾃｫSﾃ‡ﾆ津｢ï｣ｿﾃｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Cancel" or "OK"if it is "OK" thenunMark all cardsput 0 into bg fld "totalMarkNumber" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "end ifelseset the lockMessages to falseplay harpsichord g6s-- put empty into cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "answer "ﾃ‡ﾂ｢ﾃ‡竕 ﾃ‡ﾂｬﾃ‡ﾂｩﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳ﾃ‡ï｣ｿﾃ･ﾂｩﾃ‡窶ｹﾃ‡竏妥‡ﾂｩﾃ③" with "No" or "Yes"if it is "Yes" thensend "mouseUp" to bg fld "errorNumber" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 "end ifend ifend if-- if the hilite of cd btn id 49 of cd id 13803 then bkup cd fld id 51 of cd id 13803put empty into cNMmacroReportput false into cNMDialogOFFend mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>404</left>
            <top>208</top>
            <right>444</right>
            <bottom>248</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24103</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ厭ﾃ丑ﾃ嘉ｧﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ</name>
        <script>on mouseUpglobal ListSelectExitset the cursor to watchput empty into ListSelectExitput cNifPath() into cNifPathput (the optionKey is down) into noCheckput fileListInFldr(cNifPath,"T:TEXT" & return & "N:addin_") into addinFileListif addinFileList <> empty thenif noCheck thenget ListSelect ("*3",addinFileList,"ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬ‖ddinﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" & return & "ﾃ⑿ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ荏ﾃ宇ﾃ叡ﾃ丑ﾃ‡ﾂｻﾃ‡ﾂｵﾃ⑥ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀","ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ","100,40,410,280",return)elseput the number of lines of addinFileList into tif t > 1 thenget line 1 of addinFileListif "addin_CNM_" is in it thenput length(it) into lput empty into nrepeat with r = 1 to tput line r of addinFileList into fnif char 1 to l of fn is char 1 to l of it then put fn & return after nend repeatif the number of lines of n <> t thenget ListSelect ("*1",addinFileList,"ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬ‖ddinﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③","ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ","100,40,410,280",return)end ifelseget ListSelect ("*1",addinFileList,"ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬ‖ddinﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③","ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ","100,40,410,280",return)end ifelseget addinFileListend ifend ifif ListSelectExit is "Cancel" or it is empty then exit mouseUpput it into fileNameput empty into macro-- putReport empty,trueput empty into addinNameput "0" into bg fld "errorNumber"if noCheck thenput "addin_files" & return into addinNamerepeat with r = 1 to the number of lines of fileNameget line r of fileNameput "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & quote & it & quote & "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put cNifPath & it into filePathput readAddinTask(filePath) after macroput filePath & return after addinNameend repeatelseput length(fileName) into cnif char (cn - 2) of fileName is "-" and char (cn - 2) to cn of fileName is a integer thenput char 1 to (cn - 3) of fileName into fileNameend ifput "*: /* CNIF_MacroMaker macro" into h1put "*: /* To be continued. */" into h2put "*: /* End of Macro */" into h3put 1 into nput empty into dateTimeput "ﾃ⑿ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ閲ﾃ運ﾃ嘉ｬﾃ‡ﾃバptionﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡竕暗ｮCﾃ 窶敕‡ﾃε液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡ïｬづ‡窶ｹﾃ‡竏妥③ﾃ⒀" into mes1repeat with r = 1 to the number of lines of addinFileListset the cursor to busyput line r of addinFileList into readFileif char 1 to length(fileName) of readFile is fileName thenput cNifPath & readFile into filePathput "ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & quote & readFile & quote & "ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put readAddinTask(filePath) into addinTextif h1 is in addinText thenput char 29 to (offset("*/",addinText) + 1) of addinText into addinNoif addinNo is "*/" or char 4 to 5 of addinNo is n thenput addinText after macroadd 1 to nelsebeepput "-" into bg fld "errorNumber"answer "addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃｲAﾃｫﾂｱﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return & mes1hide msgexit mouseUpend ifif dateTime is empty thenput line 2 of addinText into dateTimeelseif line 2 of addinText <> dateTime thenbeepput "-" into bg fld "errorNumber"answer "ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡ﾃεｧﾃ湘ｪﾂｨﾃｬﾋ凖ｩﾃｻﾃ‡邃｢ﾃ ﾃ催ｭvﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return & mes1hide msgexit mouseUpend ifend ifelseput addinText after macroend ifif readFile <> fileName thenput fileName && "-" && readFile into fnelseput fileName into fnend ifput fn into line 1 of addinNameput return & filePath after addinNameend ifend repeatend ifif h1 is in macro and h3 is not in macro thenbeepput "-" into bg fld "errorNumber"answer "ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡ﾃεｨIﾃ‡ﾃ古‡ﾃ凝‡邃｢ﾃ‡ﾃ古‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return & "ﾃ⑿ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃ･ﾂｩﾃ‡ﾂｬﾃ‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③ﾃ⒀"end ifput macro into cd fld "cNif-macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put addinName into cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put line 2 of macro into dateTimeif char 1 to 6 of dateTime is "*: /* " thendelete char 1 to 6 of dateTimeput offset(" */",dateTime) into xdelete char x to length(dateTime) of dateTimeput dateTime into bg fld id 7elseput empty into bg fld id 7end ifput 0 into bg fld "errorNumber"hide msgelseanswer quote & "addin_" & quote && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾃ陛‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"end ifend mouseUp</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>453</left>
            <top>208</top>
            <right>493</right>
            <bottom>248</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24104</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ厭ﾃ丑ﾃ嘉ｧﾃｯ竄ｬﾃｫ竏‚ </name>
        <script>on mouseUpglobal ListSelectExitset the cursor to watchput "*: /* CNIF_MacroMaker macro" into h1put "*: /* To be continued. */" into h2put "*: /* End of Macro */" into h3put cd fld "cNif-macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ " into addinTextif addinText is empty thenbeepanswer "ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"exit mouseUpend ifput (h1 is in addinText or h2 is in addinText or h3 is in addinText) into CNMput cNifPath() into cNifPathif CNM thenput "addin_CNM_1" into fileNameelseput "addin_other" into fileNameend ifput fileListInFldr(cNifPath,"T:TEXT" & return & "N:addin_") into addinFileListif addinFileList <> empty thenput shortNumber("1-" & the number of lines of addinFileList,false) into sbeepget "ﾃ…ﾃ‰ addin_ﾃｨﾃｫﾃ‡ﾂｴﾃｨoﾃ‡ﾂｵ ﾃ…ﾃ‘" & return & "ﾃ､ﾋ佚‡窶ｦaddin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡邃｢ﾃｧ窶ｺﾃ‡ﾃ凝‡窶ｹﾃ‡竏妥③ﾃ⑿ﾃｯﾂｰﾃｪﾃｮﾃｫIﾃｫï｣ｿﾃ｢ﾂｬﾃ⒀"get ListSelect ("*3",addinFileList,"s=" & s,it,"NoDoubleClick","80,50","ASLFont+,9","Add",return,3000)if it <> empty and (ListSelectExit is "Delete" or ListSelectExit is "Rename") thendelReNameAddin "addin_",(ListSelectExit is "Delete"),,itput the result into addinFileListelse if ListSelectExit is "Cancel" thenhide msgexit mouseUpend ifput changeName(fileName,addinFileList) into fileNameend ifput empty into addinNameput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｯ竄ｬﾃｫ竏づｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put empty into fileNoListput "01" into fput "0" into bg fld "errorNumber"if CNM thenrepeat while h1 is in addinText or h2 is in addinText or h3 is in addinTextput offset(h1,addinText) into xif x < 1 thenerror fileName,"ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡ﾃε駅ﾃ叡ﾃ雲ﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"elsedelete char 1 to (x - 1) of addinTextend ifput char 29 to 36 of addinText into nput ("No." is in n) into separateif separate then put "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｯ邃｢ﾃ､ﾃ妥ｯ竄ｬﾃｫ竏づｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"-- ﾃ烏ﾃ嘉｢ﾃ…[ﾃ荏ﾃ宇ﾃ叡ﾃ丑if separate thenif char 4 to 5 of n <> f thenerror fileName,"ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡邃｢ﾃｲAﾃｫﾂｱﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"end ifend ifput offset(h2,addinText) into yif y < 1 thenput offset(h3,addinText) into yif y < 1 thenerror fileName,"ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡ﾃεｨIﾃ‡ﾃ古‡ﾃ凝‡邃｢ﾃ‡ﾃ古‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"end ifelse-- ﾃ烏ﾃ嘉｢ﾃ…[ﾃ荏ﾃ宇ﾃ叡ﾃ丑if h3 is not in addinText thenerror fileName,"ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡ﾃεｨIﾃ‡ﾃ古‡ﾃ凝‡邃｢ﾃ‡ﾃ古‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"end ifif separate is false thenerror fileName,"ﾃ厭ﾃ丑ﾃ嘉ｧﾃ‡邃｢ﾃｯ邃｢ﾃ､ﾃ妥‡竕･ﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗‡ﾃ甘‡ﾂｧﾃ‡竕暗‡竏妥③"end ifend ifput char 1 to (y - 1) of addinText into macrodelete char 1 to (y - 1) of addinTextput line 1 of addinText & return after macrodelete line 1 of addinText-- ﾃ烏ﾃ嘉｢ﾃ…[ﾃ荏ﾃ宇ﾃ叡ﾃ丑repeat with r = 0 to 9get MtScanList(macro,r & ":",,true)if the number of lines of it > 1 thenerror fileName,"ﾃ嘉｢ﾃ悦ﾃ嘉｣ﾃ‡邃｢ﾃｯﾂｰﾃｪﾃｮﾃｫ竏づｧ窶ｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③"end ifend repeatif f > 1 thenget fileName & "-" & felseget fileNameend ifput cNifPath & it into filePathWriteAddinTask macro,filePathif it <> fileName thenput fileName && "-" && it into fnelseput fileName into fnend ifput fn into line 1 of addinNameput return & filePath  after addinNameadd 1 to fif f < 10 then put "0" before fend repeatelseWriteAddinTask addinText,cNifPath & fileNameput fileName & return & cNifPath & fileName into addinNameend ifput addinName into cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "hide msgend mouseUpon error fileName,mesbeepput "-" into bg fld "errorNumber"answer "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦" & mes & return & "ﾃｧﾃ湘ｪﾂｨﾃ‡竕･ﾃ‡ﾃ催‡ﾎｩﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ï｣ｿﾃｧﾃ古ｨﾃｺﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③" with "Cancel" or "OK"if it is "OK" thendelReNameAddin fileName,true,trueput empty into cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "end ifhide msgexit to hyperCardend error</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>404</left>
            <top>257</top>
            <right>444</right>
            <bottom>297</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26000</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>extend</textStyle>
        <name>Editorﾃ｣Nﾃｬﾃ†</name>
        <script>on mouseUpset the cursor to watchput cNifPath() into cNifPathput cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ " into fileListdelete line 1 of fileListput EditorPath() into editorput "0" into bg fld "errorNumber"put return & "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & pathTofile(editor) && "ﾃ｣Nﾃｬﾃ†ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ" & return & cNifHeader() & return into reportrepeat with r = 1 to the number of lines of fileListput line r of fileList into filePathput pathTofile(filePath) into fileNameif there is not a file filePath thenput "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦" & fileName && "ﾃ‡邃｢ﾃ･ﾂｩﾃ‡ﾂｬﾃ‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③" & return after reportadd 1 to bg fld "errorNumber"if bg fld "errorNumber" is 1 then beepnext repeatelseput fileName & return after reportend ifopen filePath with editorend repeatputReport reportif bg fld "errorNumber" <> 0 then open editorhide msgend mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>453</left>
            <top>257</top>
            <right>493</right>
            <bottom>297</bottom>
        </rect>
        <style>shadow</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24003</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>addin_ﾃｧﾃ古ｨﾃｺ</name>
        <script>on mouseUpget "T:TEXT"if the optionKey is up thenput return & "N:addin_" after itend ifput cNifPath() into FldrPathif FldrPath <> empty thendelFilesInFldr FldrPath,it,"ComNiftyﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃ‡ﾂｩﾃ‡ﾃ"end ifend mouseUp</script>
    </part>
    <part>
        <id>26</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>39</left>
            <top>318</top>
            <right>153</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>NIFTY-Navigator II</name>
        <script>on mouseUpget the optionKeyif it is up then go to stack "NIFTY-Navigator II" in a new window without dialogif the result is "No such stack" or it is down thenget setGoSTbtn ("NIFTY-Navigator II")if it is empty then exit mouseUpsetNameNNbtn itgo to stack (item 3 of it) in a new windowelseif the result <> empty then go to stack "NIFTY-Navigator II"end ifend mouseUpon setNameNNbtn btnNamerepeat with r = 2 to the number of backgroundsset the name of bg btn (item 1 of btnName) of first cd of bg r to (item 2 of btnName)end repeatend setNameNNbtn---------- ﾃ…ﾂｶ ﾃｧﾃ古ｨﾃｺﾃ⑥ﾃｯﾅ禿ｧXﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡竕暗‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ⑩ ----------"NIFTY-Navigator II"</script>
    </part>
    <part>
        <id>27</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>160</left>
            <top>318</top>
            <right>274</right>
            <bottom>339</bottom>
        </rect>
        <style>shadow</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>PDS-Finder 1.5</name>
        <script>on mouseUpget the optionKeyif it is up then go to stack "PDS-Finder 1.5" in a new window without dialogif the result is "No such stack" or it is down thenget setGoSTbtn ("PDS-Finder 1.5")if it is empty then exit mouseUpsetNameSTbtn itgo to stack (item 3 of it) in a new windowelseif the result <> empty then go to stack "PDS-Finder 1.5"end ifend mouseUpon setNameSTbtn btnNameput " 3. LIBﾃｯ窶堙ｫﾂｴﾃｪ窶｡ﾃｱﾃｦﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ" into cdlistrepeat with r = 1 to the number of items of cdlistif there is a cd btn (item 1 of btnName) of cd (item r of cdlist) thenset the name of cd btn (item 1 of btnName) of cd (item r of cdlist) to (item 2 of btnName)end ifend repeatend setNameSTbtn---------- ﾃ…ﾂｶ ﾃｧﾃ古ｨﾃｺﾃ⑥ﾃｯﾅ禿ｧXﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ‡竕暗‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ⑩ ----------"PDS-Finder 1.5"</script>
    </part>
    <part>
        <id>30</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>484</left>
            <top>5</top>
            <right>510</right>
            <bottom>27</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2478</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpif there is a cd " CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ‡窶ｦﾃ‡ﾂｬﾃ‡ﾂ｢ﾃ‡ﾆ’ " thenset the loc of msg to 20,295put "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ﾃ•500ﾃ｢~ﾃ‡ﾃε鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ‡竕暗‡竏妥③ﾃ･pﾃｫﾂｱﾃｩgﾃｳpﾃ‡竕･ﾃ‡ﾃ催‡ﾃ暗ｨﾃ催ｧﾃ｡ﾃ‡ﾃ陛‡竕､ﾃｫﾃｳﾃ｣窶｡ﾃ‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"end ifpicture "About(CNM)1",resource,dialog,falsepicture "About(CNM)2",resource,rect,falseif there is a window "About(CNM)1" thenset the loc of window "About(CNM)1" to "100,55"set the visible of window "About(CNM)1" to trueif there is a window "About(CNM)2" thenset the rect of window "About(CNM)2" to "130,137,375,249"set the visible of window "About(CNM)2" to trueend ifput 1 into cput 0 into yrepeatif there is a window "About(CNM)2" then set the scroll of window "About(CNM)2" to "0,y"add 1 to yif y > 1095 thenput 0 into yadd 1 to cif c > 3 then exit repeatend ifif the mouse is down thenif there is a window "About(CNM)2" thenif the mouseloc is within the rect of window "About(CNM)2" thenwait until the mouse is upelseexit repeatend ifelseexit repeatend ifend ifend repeatif there is a window "About(CNM)2" then close window "About(CNM)2"close window "About(CNM)1"end ifhide msgsetMsgLocend mouseUp</script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>407</left>
            <top>79</top>
            <right>494</right>
            <bottom>97</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ｣Nﾃｬﾃ†ﾃｩﾃｻﾃｩﾂｩﾃｬﾃ†ﾃｧﾃ湘ｪﾂｨ</name>
        <script>on mouseUpif the hilite of me is false thenput empty into bg fld "openDate"set the style of bg fld "openDate" to transparentelseset the style of bg fld "openDate" to rectangleend ifend mouseUp</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>496</left>
            <top>326</top>
            <right>512</right>
            <bottom>342</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>BookMark</name>
        <script>on mouseUpsetBookmarkend mouseUp</script>
    </part>
    <part>
        <id>42</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>476</left>
            <top>314</top>
            <right>512</right>
            <bottom>328</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>BookMarkNo</name>
        <script></script>
    </part>
    <part>
        <id>43</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>171</top>
            <right>489</right>
            <bottom>191</bottom>
        </rect>
        <style>standard</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ</name>
        <script>on mouseUpput (the optionKey is down) into opactive ,,opend mouseUp</script>
    </part>
    <part>
        <id>44</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>464</left>
            <top>55</top>
            <right>493</right>
            <bottom>69</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>errorNumber</name>
        <script>on mouseUpset the cursor to watchlock screen-- if me > 0 thenput cd fld "macroReport" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " into reportTxtif the short name of this cd <> " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " thengo to cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 "put item 1 of last line of MtScanList(reportTxt,"ﾃｧﾃ湘ｪﾂｨﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ") into lif l is empty thenput 1 into lend ifelseput 1 into lend ifget word 2 of the selectedLine of cd fld "macroReport"if it <> empty then put it into lput MtScanList(reportTxt,"ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦") into sListrepeat with r = 1 to the number of lines of sListget item 1 of line r of sListif it > l thenselect line it of cd fld "macroReport"exit mouseUpend ifend repeatunlock screenselect line 0 of cd fld "macroReport"answer "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡ﾃ陛‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"-- end ifend mouseUp</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>317</top>
            <right>430</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13303</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGOPrevBMend mouseUp</script>
    </part>
    <part>
        <id>46</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>429</left>
            <top>317</top>
            <right>449</right>
            <bottom>341</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13304</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpGONextBMend mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>8</left>
            <top>319</top>
            <right>31</right>
            <bottom>340</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21700</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GoHome</name>
        <script>on mouseUpgoHomeend mouseUp</script>
    </part>
    <part>
        <id>48</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>418</left>
            <top>102</top>
            <right>481</right>
            <bottom>117</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Osaka</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>openDate</name>
        <script>on mouseUpif the optionKey is down thenask "ﾃｬﾋ凖ｯtﾃ‡ï｣ｿﾃｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" with meif the result is "Cancel" then exit mouseUpput it into meelse if me is empty thenset the style of bg fld "openDate" to rectangleput the date into meset the hilite of bg btn "ﾃ｣Nﾃｬﾃ†ﾃｩﾃｻﾃｩﾂｩﾃｬﾃ†ﾃｧﾃ湘ｪﾂｨ" to trueelseput empty into meend ifend mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>355</left>
            <top>28</top>
            <right>505</right>
            <bottom>99</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>subMenuList</name>
        <script></script>
    </part>
    <part>
        <id>49</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>448</left>
            <top>6</top>
            <right>466</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12490</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>openGuide</name>
        <script>on mouseUpput the short name of this cd into cdNameif cdName is in " ﾃ厭ﾃ丑ﾃ嘉ｧ , ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " thendelete char 1 of cdNamedelete last char of cdNameend ifCNMGuide cdNameend mouseUp</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>17</left>
            <top>37</top>
            <right>393</right>
            <bottom>53</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>ASLFont+</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>createDate</name>
        <script>on mouseDownif bg fld "subMenu" <> " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " then exit mouseDownwait 20put empty into listput cd fld id 2 into reportif report is empty then exit mouseDownput round(the scroll of cd fld id 2 / 12) + 1 into lput MtScanList(report,"ﾃｧﾃ湘ｪﾂｨﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ") into pput the number of lines of p into lnput ln into drepeat with r = 1 to lnput item 1 of line r of p into sget line s + 1 of reportif it <> empty then put it & return after listif s <= l then put r into dend repeatif list is empty then exit mouseDownget item 1 of the loc of mesubtract ((the number of chars of line 1 of list) * 4) from itput "," & the top of me after itUxPop list,"N",d,itif line 1 of it is empty then exit mouseDownlock screenselect before line (item 1 of line (item 3 of line 2 of it) of p) of cd fld id 2select emptyselect line 0 of cd fld id 2end mouseDown</script>
    </part>
    <part>
        <id>50</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>467</left>
            <top>6</top>
            <right>485</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6356</icon>
        <textAlign>center</textAlign>
        <font>Chiyoda</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>HelpON/OFF</name>
        <script>on mouseUpHelpToggleend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>1</id>
        <text>ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ</text>
    </content>
    <content>
        <layer>background</layer>
        <id>5</id>
        <text> ﾃ厭ﾃ丑ﾃ嘉ｧ  ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃ厭ﾃ…[ﾃ丑ﾃ瓜ﾃ叡ﾃ曳</text>
    </content>
    <content>
        <layer>background</layer>
        <id>8</id>
        <text>0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>42</id>
        <text>0 / 0</text>
    </content>
    <content>
        <layer>background</layer>
        <id>44</id>
        <text>0</text>
    </content>
    <name>ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ</name>
    <script>on openStackset the cursor to watchstart using stack "CNIF_MM-lib"if MMlibVer() <> 1.4 thenbeepget quote & "CNIF_MM-lib ver.1.4" & quote && "ﾃ‡ï｣ｿﾃｩgﾃｳpﾃ‡ﾂｵﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"elsedoResScript "StartUpCNM"get the resultend ifif the version < 2.2 then get "HyperCard 2.2lite ﾃ ﾂｻﾃｧ~ﾃ‡竕暗‡ﾂｻﾃ‡ﾂ｢ﾃ‡竏†ﾃｬﾃ†ﾃｧﾃ湘‡ﾂｵﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津③"if it <> empty thenbeep 2answer it & return & "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｨﾃ｢ﾃ､ﾋ凖｢ﾂｪﾃ‡竕暗‡ﾂｴﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡竕暗‡ﾂｵﾃ‡ﾎｩﾃ③" with "ﾃｨIﾃｳﾏ\"if the number of lines of the stacks is 1 thendoMenu "Quit HyperCard"elsedoMenu "Close Stack"stop using stack "CNIF_MM-lib"end ifend ifplay harpsichord g6spass openStackend openStackon openCardput the number of marked cards into bg fld "totalMarkNumber"pass openCardend openCardon controlKey whichKeyif whichKey = 4 then -- DsendBtn "bg btn id 21"else if whichKey = 12 then -- LsendBtn "bg btn id 43"else if whichKey = 15 then -- OsendBtn "bg btn id 20"else if whichKey = 18 and the shiftKey is up and the optionKey is up then -- RsendBtn "bg btn id 18"else if whichKey = 21 then -- Usend "mouseUp" to bg fld id 8else if whichKey = 23 then -- WsendBtn "bg btn id 19"elsepass controlKeyend ifend controlKey-- ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ､ﾂｬﾃ｣ﾂｴﾃｪ窶ｺﾃｭﾃ凝荏ﾃ宇ﾃ叡ﾃ丑on prefCheck xput false into checkput "1,2,10,3" into listrepeat with r = 1 to the number of items of listget cd fld id (item r of list) of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"if it is empty thenput true into checkelseif the version >= 2.1 and r < 4 thenif folderCheck(it,r,list) then put true into checkend ifend ifend repeatif check thengo to cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"beepanswer "ﾃｪ窶ｺﾃｭﾃ凝‡ï｣ｿﾃｧsﾃ‡ﾂ｡ﾃ‡ﾆ津‡竕 ﾃ‡ﾃｦﾃ‡竕･ﾃ‡ﾂ｢ﾃ③"if x is empty thenrepeat 3set the hilite of cd btn id 34 to truewait 10set the hilite of cd btn id 34 to falsewait 10end repeatend ifend ifend prefCheckfunction folderCheck f,r,listif (there is a folder f) is false thenput empty into cd fld id (item r of list) of cd "ﾃ液ﾃ羽ﾃ嘉｣ﾃ雲ﾃｪ窶ｺﾃｭﾃ‹"return trueelsereturn falseend ifend folderCheckon scCheckif the date <> bg fld "openDate" of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" and the hilite of bg btn "ﾃ｣Nﾃｬﾃ†ﾃｩﾃｻﾃｩﾂｩﾃｬﾃ†ﾃｧﾃ湘ｪﾂｨ" of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" and the commandKey is up thenif the short name of this bg <> "ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨ" then exit scChecksend "scheduleCheck" to cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣"put the date into bg fld "openDate" of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣"if the hilite of cd btn id 49 of cd id 13803 then bkup cd fld id 51 of cd id 13803end ifend scCheck-- NIFTY-Navigator II ﾃ｣@ﾃｮ¥ﾃ､gﾃｭﾂ｣on active path,logFileName,opglobal cNMautoRead,CNMbmList,CNMbmNo,CNMLCListput path & logFileName into filePathif filePath is empty thenget selectLogFile()if it is empty then exit activeput it into filePathend ifif the hilite of cd btn id 1 of cd id 32246 and the hilite of cd btn id 2 of cd id 32246 and op <> true thenput 1 into CNMbmNoput empty into CNMbmListend ifput empty into CNMLCListput true into cNMautoReadput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ欝ﾃ…[ﾃ荏ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"set the cursor to watchputReport return & "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ､Jﾃｩnﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ" & return & the short date && the long time & return & return & filePath & returnput empty into theLog--put cd fld "ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ鵜ﾃ…[ﾃ嘉ｨﾃ…[ﾃ栄ﾃ嘉､ﾃ厩ﾃ曳" of cd "ﾃ嘉ｧﾃ碓ﾃｩﾂｩﾃｬﾃ†ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹"into kyrepeat with r = 1 to the number of lines of kyput false into item r of readLogend repeatopen file filePathget the resultif it <> empty thenbeepputReport "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦" & it & returnif bg fld "errorNumber" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 " is a integer then add 1 to bg fld "errorNumber" of cd " ﾃ嘉･ﾃ榎ﾃ…[ﾃ曳 "hide msgexit activeend ifrepeatrepeatread from file filePath for 16384put it after theLogif length(theLog) > (16384 * 10) or it is empty then exit repeatend repeatrepeat with r = 1 to the number of lines of kyput line r of ky into kif the number of items of k is 2 thenif item 1 of k is "ﾃ…ﾃ嘉運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃ…ﾃ‘" thenif item 1 of k is in theLog or item 2 of k is in theLog thenput true into item r of readLogend ifelseif item 1 of k is in theLog and item 2 of k is in theLog thenput true into item r of readLogend ifend ifelse if the number of items of k is 3 thenif item 1 of k is "ﾃ丑ﾃ嘉､ﾃ叡ﾃ鋭ﾃ嘉ｬﾃ碓ﾃ欝ﾃ…[ﾃ詠ﾃ厩    CLIP" thenif item 1 of k is in theLog or (item 2 of k is in theLog and item 3 of k is in theLog) thenput true into item r of readLogend ifelseif item 1 of k is in theLog and (item 2 of k is in theLog or item 3 of k is in theLog) thenput true into item r of readLogend ifend ifelse if the number of items of k is 4 thenif (item 1 of k is in theLog and item 2 of k is in theLog) or (item 3 of k is in theLog and item 4 of k is in theLog) thenput true into item r of readLogend ifelseif k <> "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃ ﾃ催ｳﾃｳﾃ…ﾃ‘" then put return before kif k is in theLog then put true into item r of readLogend ifend repeatput last line of theLog into theLogif it is empty then exit repeatend repeatclose file filePath--put cd fld "ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ雨ﾃ…[ﾃ栄ﾃ嘉､ﾃ厩ﾃ曳" of cd "ﾃ嘉ｧﾃ碓ﾃｩﾂｩﾃｬﾃ†ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｪ窶ｺﾃｭﾃ‹"into listput item 1 of MtScanList(list," 1. ﾃｧﾂｰﾃｨTﾃ‡ﾃε‡ﾂｮﾃｭmﾃ‡ﾃﾃ‡ﾏ\",,) into lget line l of listdelete line l of listput it & return after listget item l of readLogdelete item l of readLogput "," & it after readLogrepeat with r = 1 to the number of lines of listput line r of list into bgNameif char 1 of bgName is "*" and item r of readLog thendelete char 1 to 4 of bgNameif the number of items of bgName <> 1 thengo to cd item 2 of bgNameelsego to first cd of bg bgNameend ifsend "GComBtn" to this cdget the resultsend "mouseUp filePath" to itend ifend repeatif the short name of this cd <> " 1. ﾃｧﾂｰﾃｨTﾃ‡ﾃε‡ﾂｮﾃｭmﾃ‡ﾃﾃ‡ﾏ\" and the short id of this cd <> item 2 of line 1 of CNMbmList then GONextBMsend "openCard" to this cdget MtScanList(CNMbmList,the short id of this cd,,true)if it <> empty then put 23200 into ielse put 0 into iset the icon of bg btn "BookMark" to iput the number of lines of CNMbmList into lput CNMbmNo &&"/"&& l into bg fld "BookMarkNo"if there is a bg btn "createMark" thenset the hilite of bg btn "createMark" to the marked of this cdend if-- addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃ⑴ﾃ嘉､ﾃ瑛ﾃ…[ﾃ嘉„put cd fld id 3 of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" into disposalif disposal <> "ﾃｯﾅ禿ｧXﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ③" then delReNameAddin "addin_",(disposal is "ﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃ暗③")-- foreign_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃ⑴ﾃ嘉､ﾃ瑛ﾃ…[ﾃ嘉„put cd fld id 19 of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" into disposalif disposal <> "ﾃｯﾅ禿ｧXﾃ‡ﾂｵﾃ‡ﾂｻﾃ‡ﾂ｢ﾃ③" then delReNameAddin "foreign_",(disposal is "ﾃｧﾃ古ｨﾃｺﾃ‡竏妥‡ﾃ暗③")-- ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺput cd fld "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳" of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" into delFileListif delFileList <> empty and the hilite of cd btn id 11 of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹" is false thenput postPath() into postPathrepeat with r = 1 to the number of lines of delFileListget postPath & line r of delFileListif there is a file it thenMtDeleteFile itif the result <> empty then answer the resultend ifend repeatput empty into cd fld "ﾃ陰ﾃ叡ﾃ益ﾃ嘉ｧﾃ…[ﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ嘉､ﾃ厩ﾃ曳" of cd "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｨﾃｺﾃ､Oﾃｪ窶ｺﾃｭﾃ‹"end if--sort lines of CNMbmListput CNMbmList into cd fld "BookMarkList" of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀"send "scrFld" to this cdput empty into listrepeat with r = 1 to the number of lines of CNMLCListget item 2 of line r of CNMLCListif there is a cd id it then put cdNameR(it) & return after listend repeatputReport return & "------- ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃ雨ﾃ…[ﾃ栄 -------" & return & list & return &ﾂｬ"-------- ﾃ疫ﾃ叡ﾃ丑ﾃ厭ﾃ…[ﾃ丑 --------" & return & CNMbmListput empty into CNMLCList-- ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺif the hilite of cd btn id 5 of cd "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｪ窶ｺﾃｭﾃ‹" thensend "mouseUp" to cd btn id 6 of cd "ﾃ｢ﾃｷﾃｩqﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃｪ窶ｺﾃｭﾃ‹"end if-- BBS,CLIPﾃ雨ﾃ叡ﾃ曳ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺif the hilite of cd btn id 13 of cd "ﾃ･fﾃｩﾂｶﾃｮﾂｬﾃｪ窶ｺﾃｭﾃ‹" then-- ﾃｱﾃ‡ﾃｱ@ﾃ‡ﾃε永ﾃ韻ﾃ液ﾃｨIﾃｳﾏ\ﾃ荏ﾃ宇ﾃ叡ﾃ丑put pathTofile(knifePath()) into knifeif the version < 2.1 thenput the number of lines of the menus into mwait until knife is not in menu 1 and knife is not in menu melsewait until knife is not in menu applicationend ifput logPath() into FldrPathput "-BBS,-CLIP" into ParamListput empty into fileListrepeat with r = 1 to the number of items of ParamListput "T:TEXT" & return & "N:" & item r of ParamList into TargetParamput fileListInFldr(FldrPath,TargetParam) & return after fileListend repeatput the number of lines of fileList into nrepeat with r = n down to 1get line r of fileListif char 1 of it is "_" and it <> empty thenput FldrPath & it into delFilePathif there is a file delFilePath then MtDeleteFile delFilePathelse delete line r of fileListelsedelete line r of fileListend ifend repeatend ifif fileList <> empty then get return & "------ ﾃｧﾃ古ｨﾃｺ" && ParamList && "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ ------" & return & fileList & returnelse get emptyputReport it & "----------------------------" & return & return & the short date && the long time & return & "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｨIﾃｳﾏ\ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ" & return & returnput false into cNMautoReadcompactST 30if the hilite of cd btn id 49 of cd id 13803 then bkup cd fld id 51 of cd id 13803put "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①CNIF_MacroMaker ﾃ嘉ｧﾃ碓ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｨIﾃｳﾏ\ﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"hide msgend activeon createMacro dateTimeglobal cNMnewMacro,cNMmacroReport,cNMvariableList,cNMDialogOFFset lockMessages to truelock screenput the number of marked cards into markedCnif markedCn = 0 then exit createMacroput empty into cNMnewMacroput empty into cd fld "cNif-macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put dateTime into bg fld "createDate" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "-- ﾃ厭ﾃ丑ﾃ嘉ｧﾃｧﾃ湘ｪﾂｨpush cardgo to first marked cardrepeat with r = 1 to markedCnmakeMacrogo to next marked cardend repeatpop card-- unlock screenput return after cNMmacroReportput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ厭ﾃ丑ﾃ嘉ｧﾃｲAﾃ･ﾃ｣ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"sort items of cNMvariableListrepeat with r = 1 to the number of items of cNMvariableListset the cursor to busyget item r of cNMvariableListdo "global" && itdo "put" && it && "after cNMnewMacro"do "put empty into" && itend repeatif cNMnewMacro <> empty then-- ﾃｬﾂ｡ﾃｳﾂｷﾃｨﾃ ﾃｳﾃｹif "s:DO BBS" is in cNMnewMacro thenput offset("s:DO BBS",cNMnewMacro) into xif char (x + 8) of cNMnewMacro is "/" thenput "SET MENu OFF/" after char (x + 8) of cNMnewMacroput empty into x2elseput offset("^m",char x to (the number of chars of cNMnewMacro) of cNMnewMacro) into x2put "/SET MENu OFF" after char (x + x2 - 2) of cNMnewMacroend ifput offset("r:^mBBS>",cNMnewMacro) + 8 into xput "s:SET PAGe OFF^m" & return & "r:^mBBS>" & return after char x of cNMnewMacroif x2 <> empty then put "r:>SET MENu" & return before char (x - 8) of cNMnewMacroend if--put checkLabel(cNMnewMacro) into labelListdivideMacro cNMnewMacro,labelList,dateTimeend ifend createMacroon divideMacro originMacro,labelList,dateTimeput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ湘ｪﾂｨﾃ①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put cNifPath() into cNifPathput fileListInFldr(cNifPath) into cNifFileListput changeName ("addin_CNM_1",cNifFileList) into fileNameput fileName into cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put empty into cd fld "cNif-macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put "01" into fput 0 into totalLNumput empty into macroA--repeatput offset("*: TotalLabel :",originMacro) into yput char 1 to (y - 1) of originMacro into macrodelete char 1 to (y - 1) of originMacroif "*: TotalLabel :" is in line 1 of originMacro thenput last word of line 1 of originMacro into labelNumdelete line 1 of originMacroelse put 0 into labelNumput totalLNum + labelNum into nif n > 10 or y is 0 thenif n = 10 thenput macro after macroAadd labelNum to totalLNumend ifput "q:" & return after macroAif y is 0 or (n <= 10 and originMacro is empty) thenput originMacro & "*: /* End of Macro */" & return after macroAelseput "*: /* To be continued. */" & return after macroAend ifif f is 1 and y is 0 then put 0 into fput checkLabel(macroA) into labelwriteMacro fileName,macroA,label,dateTime,fadd 1 to fif f < 10 then put "0" before fif n = 10 thenput empty into macroAput 0 into totalLNumelseput macro into macroAput labelNum into totalLNumend ifif y is 0 or (n <= 10 and originMacro is empty) thenexit repeatend ifelseput macro after macroAadd labelNum to totalLNumend ifend repeatend divideMacroon writeMacro fileName,sMacro,labelList,dateTime,fif f > 1 then get fileName & "-" & felse get fileNameif it <> fileName then put fileName && "-" && it into fnelse put fileName into fnput fn into line 1 of cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put cNifPath() & it into filePathput return & filePath after cd fld "addin_fileName" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put the number of items of labelList into nlput "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①" & it & "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃ‡ﾂｴﾃｨoﾃ‡ﾂｵﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"if f is 0 then get emptyelse get " No." & fput "*: /* CNIF_MacroMaker macro" & it & " */     Label :" && nl & return &ﾂｬ"*: /*" && dateTime && "*/" & return before sMacroput changeLabel(sMacro,labelList) into addinText-- addin_taskﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃ‡ﾂｴﾃｨoﾃ‡ﾂｵWriteAddinTask addinText,filePathput addinText after cd fld "cNif-macro" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "end writeMacro-- ﾃ嘉｢ﾃ悦ﾃ嘉｣ﾃｯﾅ禿､竏‘function changeLabel macro,labelListrepeat with r = 1 to the number of items of labelListget item r of labelListrepeat while it is in macroset the cursor to busyput offset(it,macro) into xput (r - 1) into char x to (x + 6) of macroend repeatend repeatreturn macroend changeLabel-- addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃ‡ﾂｴﾃｨoﾃ‡ﾂｵ --on WriteAddinTask addinText,filePathglobal cNMmacroReport,cNMDialogOFFMtWriteFile filePath,addinText,EditorCreator()if the result <> empty thenif cNMDialogOFF <> true then makeAddinTaskErrorput "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺﾃｩﾃｻﾃ‡窶ｦﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｱﾃ‡ﾃ凝‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③" & return & the result & return after cNMmacroReportelseput filePath & "   /  Label :" && last word of line 1 of addinText & return after cNMmacroReportend ifend WriteAddinTask-- addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺ --function readAddinTask filePathput empty into addinTextopen file filePathif the result <> empty then return "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ迂ﾃ…[ﾃ益ﾃ嘉ｬﾃｩﾃｻﾃ‡窶ｦﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｱﾃ‡ﾃ凝‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"&return&the resultrepeat until it is emptyread from file filePath for 16384if the result <> empty then return "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ⑦addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｬﾂｫﾃ‡窶ｺﾃｧﾃｻﾃ‡窶ｺﾃｩﾃｻﾃ‡窶ｦﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｱﾃ‡ﾃ凝‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"&return&the resultput it after addinTextend repeatclose file filePathreturn addinTextend readAddinTask-- addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ古ｨﾃｺﾃ⑴ﾃ嘉､ﾃ瑛ﾃ…[ﾃ嘉„on delReNameAddin fileName,mode,match,fileListset the cursor to watchif mode is true then get "ﾃｧﾃ古ｨﾃｺ"else get "ﾃ嘉､ﾃ瑛ﾃ…[ﾃ嘉„"put "ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴﾃ①ﾃ液ﾃ院ﾃ韻ﾃ嘉｣" & it & "ﾃｭﾃ愿①ﾃ…ﾃｴﾃ…ﾃｴﾃ…ﾃｴ"put cNifPath() into cNifPathput fileListInFldr(cNifPath,"T:TEXT" & return & "N:" & fileName) into addinFileListif addinFileList <> empty thenput empty into changeFileList-- ﾃｨﾃｺﾃ､Oﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ荏ﾃ宇ﾃ叡ﾃ丑repeat with r = the number of lines of addinFileList down to 1get line r of addinFileListif checkExceptFile(it,mode) thenput line r of addinFileList & return before changeFileListdelete line r of addinFileListend ifend repeatif fileList <> empty thenrepeat with r = the number of lines of changeFileList down to 1get line r of changeFileListif MtScanList(fileList,it,,true) is empty thenput it & return before addinFileListdelete line r of changeFileListend ifend repeatsort lines of addinFileListend ifif last char of addinFileList <> return then put return after addinFileList-- ﾃｧﾃ古ｨﾃｺif mode is true thenrepeat with r = the number of lines of changeFileList down to 1get line r of changeFileListif match <> true or (match is true and char 1 to length(fileName) of it is fileName) thenMtDeleteFile cNifPath & itif the result <> empty then answer the resultdelete line r of changeFileListend ifend repeatelse -- ﾃ嘉､ﾃ瑛ﾃ…[ﾃ嘉„put changeFileList into listrepeat until list is emptyget line 1 of listif "addin_CNM_" is in it thenput char 1 to 11 of it into groupNameput item 1 of last line of MtScanList(list,groupName) into yput line 1 to y of list into rlistdelete line 1 to y of listput reName (addinFileList,rlist,cNifPath) into addinFileListelseput cNifPath & it into desFilePathput changeName ("_" & it,addinFileList) into fileNameMtRenameFile desFilePath,fileNameif the result <> empty then answer the resultput fileName & return after addinFileListdelete line 1 of listend ifend repeatend ifend ifhide msgreturn addinFileListend delReNameAddinfunction reName addinFileList,rList,cNifPathput "_" & char 1 to 11 of line 1 of rList into newNamerepeat with i = 1 to 35set the cursor to busyif MtScanList(addinFileList,newName) is empty then exit repeatif i < 10 thenput i into char 12 of newNameelseput numToChar(i + 87) into char 12 of newNameend ifend repeatrepeat with l = 1 to the number of lines of rListput line l of rList into fileNameput newName into char 1 to 11 of fileNameput cNifPath & line l of rList into desFilePathMtRenameFile desFilePath,fileNameif the result <> empty then answer the resultput fileName & return after addinFileListend repeatreturn addinFileListend reNameon makeAddinTaskErrorbeepanswer "addin_ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｧﾃ湘ｪﾂｨﾃｩﾃｻﾃ‡窶ｦﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃ｣Nﾃ‡ﾂｱﾃ‡ﾃ凝‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"exit to HyperCardend makeAddinTaskError-- ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃ雨ﾃ…[ﾃ栄ﾃ厭ﾃ…[ﾃ丑on markScheduleCard targetList,shglobal cNMDialogOFF,cNMcreateModeset the cursor to watchput empty into oldBtnList-- ﾃ･ﾂｪﾃｧ窶ｺﾃ‡ﾃε厭ﾃ…[ﾃ丑ﾃ雨ﾃ…[ﾃ栄ﾃ‡ï｣ｿﾃ｣Lﾃ｢ﾃ佚‡竏妥‡ﾃˆput cd fld id 5 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" into settlementif sh is true then put "ﾃ･竕･ﾃ‡窶ｦﾃｱïｬづ‡竏妥③" into settlementput empty into oldMarkListrepeat with r = 1 to the number of marked cardsput (the short id of marked card r) & "," after oldMarkListend repeatif the hilite of cd btn id 20 of cd "ﾃｪ窶ｺﾃｭﾃ凝⑿ﾃ㈲ﾃ⒀" is false or sh is true then unMark all cards-- ﾃ雨ﾃ…[ﾃ栄ﾃ厭ﾃ…[ﾃ丑repeat with r = 1 to the number of lines of targetListget line r of targetListif the number of items of it > 2 thenput last item of it into targetCDif there is not a cd id targetCD thennext repeatend ifelseput item 1 of it into targetCDput item 2 of it into bgIDif there is not a cd targetCD of bg id bgID thennext repeatend ifend if-- ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺif the number of items of it > 2 thenif targetCD is 30158 then put 1 into lNo -- ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺﾃ⑿ﾃ㈲ﾃ⒀put targetCD into item 1 of line lNo of oldBtnListif the marked of cd id targetCD is false thenrepeat with r = 1 to 16if the hilite of cd btn r of cd id targetCD thenput ","& r after line lNo of oldBtnListset the hilite of cd btn r of cd id targetCD to falseend ifend repeatend ifset the hilite of cd btn (item 2 of it) of cd id targetCD to truemark cd id targetCDelsemark cd targetCD of bg id bgIDend ifend repeat-- addin_CNMﾃｧﾃ湘ｪﾂｨput true into cNMDialogOFFsend "mouseUp" to bg btn "addin_CNMﾃｧﾃ湘ｪﾂｨ" of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣"-- put false into cNMDialogOFF-- ﾃ厭ﾃ…[ﾃ丑ﾃ･窶榲ｨﾃ ﾃｳﾃｹif cNMcreateMode is "Cancel" then put "ﾃ･竕･ﾃ‡窶ｦﾃｱïｬづ‡竏妥③" into settlementif settlement <> "ﾃ‡ﾂｪﾃ‡ﾃε‡窶ｹﾃ‡窶ｹﾃ③" then unMark all cardsif settlement is "ﾃ･竕･ﾃ‡窶ｦﾃｱïｬづ‡竏妥③" thenrepeat with r = 1 to the number of items of oldMarkListmark card id (item r of oldMarkList)end repeat-- ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ ﾃ⑿ﾃ㈲ﾃ⒀ﾃ閲ﾃ運ﾃ嘉ｬﾃｯﾃｺﾃ｣Aif oldBtnList <> empty thenrepeat with l = 1 to the number of lines of oldBtnListget line l of oldBtnListput item 1 of it into cdIDdelete item 1 of itrepeat with r = 1 to 16if item 1 of it = r thendelete item 1 of itset the hilite of cd btn r of cd id cdID to trueelseset the hilite of cd btn r of cd id cdID to falseend ifend repeatend repeatend ifend ifput the number of marked cards into bg fld "totalMarkNumber" of cd " ﾃ厭ﾃ丑ﾃ嘉ｧ "put empty into cNMcreateModeend markScheduleCard-- ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣ﾃ⑴ﾃ厭ﾃ…[ﾃ丑ﾃ瓜ﾃ叡ﾃ曳ﾃｬoﾃｲ^function entrySchedule fldIdput empty into listput cd fld "ScheduleBgList" of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" into bgListrepeat with r = 1 to the number of items of bgListput item r of bgList into bgNameput "/*" && bgName && "*/" & return after listput the id of bg bgName into bgIDrepeat with i = 1 to the number of cards of bg bgNameset the cursor to busyput (the short name of cd i of bg bgName) &","& bgID into cdNameif cdName is not in cd fld id fldId and "CNIF_MMﾃ鰻ﾃ宇ﾃ陰ﾃ右ﾃ宇ﾃ陰ﾃ‡窶ｦﾃ‡ﾂｬﾃ‡ﾂ｢ﾃ‡ﾆ’" is not in cdName then put cdName & return after listend repeatput return after listend repeatput cd fld "ScheduleCdList" of cd "ﾃ厩ﾃ臼ﾃ姥ﾃ嘉姪…[ﾃ嘉｣" into cdListput "/* ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ */" & return after listrepeat with r = 1 to the number of items of cdListset the cursor to busyput item r of cdList into cdNameif cdName is not in cd fld id fldId then put cdName & ",2050" & return after listend repeatput return after listput "ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ ﾃ⑿ﾃ㈲ﾃ⒀" into cdListrepeat with r = 1 to the number of items of cdListput item r of cdList into cdNameput "/* ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ -" && cdName && "*/" & return after listput the short id of cd cdName into cdIDrepeat with r = 1 to 16get the short name of cd btn r of cd cdNameif "card button id" is not in it thenput it &","& r &","& cdID into btnNameif btnName is not in cd fld id fldId then put btnName & return after listend ifend repeatput return after listend repeatreturn listend entryScheduleon GComBtnreturn "bg btn id 17"end GComBtnon scrFldsetScrollFld ""end scrFld</script>
</background>